EEE 
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Sy 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 


| 
LLLLLLLLLLLLLLL | 
| 
| 
| 
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**F I LE**1D**L IBCHAR : | 
LL II1111 BBBBBBBB CCCCCCCC OHH HH AAAAAA RRRRRRRR F 
LL II1111 BBBBBBBB CCCCCCCC GCHH HM AAAAAA RRRRRRRR 3 
LL II BB BB CC HH HH AA AA RR RR : 
LL II 8B BB CC HH HH AA AA RR RR 3 
LL II 88 BB CC HH HH AA AA RR RR 3 
LL II 8B BB CC YH HH AA AA RR RR 3 
Li II BBBBBBBB cc HHHHHHHHHH AA AA RRPRRRRR 3 
LL II BBBBBBBB cc HHHHHHHHHH AA AA RRRRRRRR : 
a I] BB BB CC HH HH AAAAAAAAAA RR RR Ps 
LL II 6B BB CC HH HH AAAAAAAAAA RR RR s 
LL II BB BB CC HH HH AA AA RR RR bived 3 
LL II BB BB CC HH HH AA AA RR RR eae P 
LLLLLLLLLL IIIIII BBBBBBBB CCCCCCCC HH HH AA AA RR RR ane’ ’ 
LLELLLLLLLL III111 BBBBBB: CCCCCCCC HH HH AA AA RR RR ened : 
LL IIIIII SSSSSSSS F 
LL HII! SSSSSSSS 3 
LL II SS F 
LL II ss 3 
LL II ss 5 
LL II ss 3 
LL II SSSSSS F 
LL II SSSSSS 3 
LL II SS F 
LL II ss 
LL II ss 
LL II ss 
LLLLLLLLLL IIIIII SSSSSSSS 
LLLLLLLLLL III] SSSSSSSS 
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: 1 2098 MODULE LIBSCHAR ( 

; § 008 IDENT = '1-007' ! File: LIBCHAR.B32 Edit: RKR1007 | 

Bice: 005 d= | 

; $ 006 BEGIN | 

: . 0008 | ce ee ate gee eran ones eamneane 4 

Ps 77 * 

; 10 0010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 8 * 

; 11 0011 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. * 

: \¢ bog ! +. ALL RIGHTS RESERVED. * 

° , t 

3 14 0014 1 !* alg heer A Hd FURNISHED UNDER A LICENSE AND MAY BE USED AND cor ice * 

; 15 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

5 16 3018 1 Ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

3 17 001 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ® 

H 18 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

: 1} sit : :* TRANSFERRED. * 

Py :* as 

; 21 0021 1 !* THE gt ae IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ® 

; $$ 00 ¢ 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ® 

: $7 O02 ! i. CORPORATION. * 

Ps ; st 

$ 25 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

$ 26 0026 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

sae 0027 1 !* * 

; ae 0028 1 !* * 

: 29 it LL eee RRR RARER RARER AREA AEA ERERERAKEEEAEE 

.-- 0030 1! 

; 0031 1 

s 2 OO3¢ 1 !4¢ 

; = 0035 1 ! FACILITY: General Library Support 

: 34 0034 1! 

; $ 0035 1 ! ABSTRACT: 

3 6 0036 1! 

; a 0037 1! Return a byte-length integer (FORTRAN INTEGER®1) as a 

: 3 Boas : } one-character string. 

: 40 0040 i ENVIRONMENT: VAX=11 User Mode 

; 42 0042 1 | AUTHOR: Tomas N. Hastings, 06-AUG-1977 

2 0044 | i MODIFIED BY: 

sa 0065 1 | | 

; 646 Boe8 1 ! 1-001 - oy eeret nm number ong d copyright _o notice. The edit number 

s 67 0047 1! ve was 3. 

3 48 bnes 1! 1-002 - add “ers © PSECT PS. A, JBS So nEc- -1978 

s 69 049 1! 1-003 - Franctaen” to te and handle a dynamic result string 

toe 0050 1! gorrectty, S 20-MAR- 

> ie 051 1 ! 1-004 = Change LIB$S J OTS$S to STR$. JBS tare | 

3 26 326 1 | 1-005 = Change call to STRSCOPY. JBS i16-JU 

oe 053 1 ! 1-006 = Use handler to translate error coaee 22-Jan-1980 

; ee B38 1 ! 1-007 - Redirect copy call from STRSCOPY. R a4 tasscoPy ' _DX6. This | 

; 5 i 2 eliminates the need for a handler and the need fo change 

3; Bpes 1! STRS statuses t to LIBS statuses. 

7 oF 057 1! RKR 26-MAY-1 
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> td 


SWITCHES: 


SWITCHES ADDRESSING _MODE 
(EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


LINKAGES: 

REQUIRE "RILIN:STRLNK'; ! Linkage to LIBSSCOPY_R_DX6 

TABLE OF CONTENTS: 

FORWARD ROUTINE 
LIBSCHAR; ! Make a i-char string 


INCLUDE FILES: 


REQUIRE "RTLIN:RTLPSECT'; ! Macros for defining psects 


i MACROS: 

NONE 

: EQUATED SYMBOLS: 

} NONE 

PSECTS: 

DECLARE _PSECTS (LIB); ! Declare psects for LIBS facility 
: OWN STORAGE: 

: NONE 

EXTERNAI. REFERENCES: 


EXTERNAL ROUTINE 
LIBSSCOPY_R_DX6 : STRING_JSB; ! Copy string 


<r 
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Loe 


RESULT_STR 
BYTE_INTEGER 


le¢ 


Return unsigne 
one-character 
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FORMAL PARAMETERS: 


oO 


0405 
0 


—_ 
WI ODONAU EU MOOD NOAP NOD 


BEGIN 


a a a a ee ee ee ee a ad ad dd 


0407 IMPLICIT INPUTS: 
0408 
0409 NONE 
0411 IMPLICIT OUTPUTS: 
O62 
041 NONE 
0414 
0415 COMPLETION CODES: 
0416 
0417 SS$_NORMAL 
0418 LIBS_STRTRU 
0419 LIBS_INSVIRMEM 
0420 LIBS_INVSTRDES 
0421 LIBS$_FATERRLIB 
Be5§ 
042 SIDE EFFECTS: 
0 $e 
0 
0 
8 3 

3 


NOUS WN —OVONOUS WN "O0On 


PRERRRRRES 
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GLOBAL ROUTINE LIBSCHAR ( 


integer is 0 to 
argument, this can be considered as either a subroutine with 
two parameters or a string function with one. 


5 


Make a l-char string 


! Descriptor of result string 
! Byte to make up the string 


Ys: 


i FUNCTIONAL DESCRIPTION: 


hy integer (FORTRAN INTEGER®*1) as a 
B $ wat} string. The te of the input 
55. Since the output string is the first 


RESULT_STR.wt.dx Address of the descriptor into which 
the one-character string is written. 
BYTE_INTEGER.rbu.r The byte to put in that string. 


Procedure successfully completed 
Success, but source string truncated 
Insufficient virtual memory 

Invalid string descriptor 

Fatal error in Library 


May allocate a little space for the result string. 


RETURN (LIBSSCOPY_R_DX6 (1, .BYTE_INTEGER, .RESULT_STR)) ; 


!' end of LIBSCHAR 
-TITLE LIBSCHAR 
-IDENT \1-007\ 
-EXTRN LIBSSCOPY_R_DX6 
-PSECT _LIBSCODE,.NOWRT, SHR, 


1 
1b-Se0-1984 0:99:10 YaNett BLisg-32_ 
! 


PIC,2 


<r 


on flee . . 
Elapsed Fass 99:9? -5 
Lines/CPU Min: 514 
“cee Ane eS 46437 


15 
Hb-Sen-1984 00:59:10 yAK-IT BLin8-82 v4.0-742 


007 0 09 ENTRY LIBSCHAR tpd2¥S R2,R3,R4,R5,R6 
52 Se AC D MOVL RESULT_S 
51 8 AC DO 00006 MOVL BYTE an nviten® R1 
50 01 DO OO00A MOVL wi, R 
000000006 00 16 90000 JSB LIBSSCOPY_R_DX6 
04 0001 RET 


; Routine Size: 20 bytes, Routine Base: _LIBSCODE + 0000 


0434 1 
bce : END ! end of module LIBSCHAR 
0437 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
_LIBSCODE 20 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /NOTRACE/LIS=LIS$:LIBCHAR/OBJ=O0BJ$:LIBCHAR MSRC$:LIBCHAR/UPDATE=(ENH$:LIBCHAR) 
20 code *,0 data bytes 


Used: 21 pages 


: wee hay Complete 
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